COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		INTR:	PHP
C00003 00003		INTY:	LDX	TYIEND
C00004 00004		OTY:	TXA
C00005 00005		ICHRW:	LDX	TYIBEG
C00006 ENDMK
C⊗;
	INTR:	PHP
		PHA
		LDA	TYOSR
		EOR	TYOMSK
		BNE	OTY

		LDA	TYISR
		EOR	TYIMSK
		BEQ	RETA
		TXA
		PHA
	INTY:	LDX	TYIEND
		BPL	RING
		CPX	TYIBEG
		BEQ	TYIFUL

	TYIN:	LDA	TYIR
		STA	TYIB	(X)
		INC	TYIEND

		LDA	TYISR
		ORA	TYRDY
		STA	TYISR

	RETR:	PLA
		TAX
	RETA:	PLA
		PLP
		RTI
		
	RING:	LDX	TYIBEG
		BEQ	TYIFUL
		LDX	#300
		JMP	TYIN

	TYIFUL:	LDA	TYISR
		ORA	TYIDIS
		STA	TYISR
		JMP	RETR
	OTY:	TXA
		PHA
		LDX	TYOBEG
		CPX	TYOEND
		BEQ	ENDTYO

		LDA	TYOB	(X)
		STA	TYOR
		INC	TYOBEG
		BCC	RETR
		LDA	#300
		STA	TYOBEG
		JMP	RETR

	ENDTYO:	LDA	TYOSR
		ORA	TYODIS
		STA	TYOSR
		JMP	RETR
	ICHRW:	LDX	TYIBEG
		CPX	TYIEND
		BEQ	ICHRW
		LDA	TYIB	(X)
		INC	TYIBEG
		BCS	ZBEG
		RTS

	ZIBEG:	LDX	ZERO
		STX	TYIBEG
		RTS

	OCHR:	LDX	TYOEND
		CPX	TYOBEG
		BEQ	TYOFUL
		STA	TYOB	(X)
		INC	TYOBEG
		BCS	ZOBEG
		RTS

	ZOBEG:	LDX	ZERO
		STX	TYOBEG
		RTS